{-# OPTIONS -Wall #-}

--------------------------------------------------------------------------------
-- |
-- Module      :  Lirio.NoteListOps
-- Copyright   :  (c) Stephen Tetley 2012
-- License     :  BSD3
--
-- Maintainer  :  Stephen Tetley <stephen.tetley@gmail.com>
-- Stability   :  highly unstable
-- Portability :  GHC
--
-- Note list marks / operations.
--
--------------------------------------------------------------------------------


module Lirio.NoteListOps
  (

    times

  ) where

import Lirio.Base.Overloading

import Text.PrettyPrint.Leijen hiding ( dot )   -- package: wl-pprint

times :: GenericMarkM m => Int -> Int -> m a -> m ()
times n d ma = 
    command "times" >> genericMark frac 
                    >> genericMark lbrace >> ma >> genericMark rbrace
  where
    frac = group (int n <> char '/'  <> int d)
